home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8185 < prev    next >
Text File  |  1993-10-08  |  816b  |  72 lines
  1. save/sv exch def
  2. /languagelevel where
  3. {
  4. pop languagelevel 2 ge
  5. }{
  6. false
  7. }ifelse
  8. {
  9. /str 128 string def
  10. count
  11. {
  12. (/)print
  13. dup str cvs print
  14. (:)print
  15. /Font resourcestatus
  16. {
  17. pop pop(Yes)
  18. }{
  19. (No)
  20. }ifelse =
  21. }bind repeat
  22. }{
  23. /isondisk
  24. /filenameforall where
  25. {
  26. pop
  27. countdictstack mark{(foo)status}stopped{
  28. cleartomark
  29. countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse
  30. false
  31. }{
  32. cleartomark pop
  33. true
  34. }ifelse
  35. }{false}ifelse
  36. {
  37. {
  38. str 6 94 getinterval cvs
  39. length 6 add str 0 3 -1 roll getinterval
  40. mark exch status
  41. {
  42. cleartomark(Yes)
  43. }{
  44. cleartomark(No)
  45. }ifelse
  46. }
  47. }{
  48. {
  49. pop(No)
  50. }
  51. }ifelse
  52. bind def
  53. /str 128 string dup 0(fonts/)putinterval def
  54. /st2 128 string def
  55. count
  56. {
  57. (/)print
  58. dup st2 cvs print
  59. (:)print
  60. FontDirectory 1 index
  61. known
  62. {
  63. pop(Yes)
  64. }{
  65. isondisk
  66. }ifelse =
  67. }bind repeat
  68. }ifelse
  69. (*)=
  70. sv restore
  71. %%?EndFontQuery: Unknown
  72.